home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / pelops.g < prev    next >
Text File  |  1998-05-22  |  4KB  |  142 lines
  1. (game-module "pelops"
  2.   (title "Peloponnesian War")
  3.   (blurb "Athens vs Sparta, for control of Greece in 431 BC")
  4.   (base-module "greek")
  5.   (variants
  6.    (see-all false)
  7.    ;; not realistic, more for debugging
  8.    ("Last Side Wins" last-side-wins
  9.      (true (scorekeeper (do last-side-wins))))
  10.    )
  11.   )
  12.  
  13. (set terrain-seen true)
  14.  
  15. ;; Suppress random startups (should hack synthesis list)
  16. (add u* start-with 0)
  17. (add u* independent-near-start 0)
  18. (table independent-density (u* t* 0))
  19.  
  20. ;; Action in the war was limited to the general vicinity of Greece and the Aegean.
  21.  
  22. (area 101 49 (restrict 200 100 30 32))
  23.  
  24. (set initial-date "Mar -431")
  25.  
  26. ;; One of the interesting properties of the Pelopponnesian War was that
  27. ;; it was really a three-sided contest, with Persia always waiting in
  28. ;; the wings, looking for opportunities to influence events.
  29.  
  30. (side 1 (name "Athens") (noun "Athenian") (emblem-name "owl"))
  31.  
  32. (side 2 (name "Sparta") (noun "Spartan") (emblem-name "shield-spear"))
  33.  
  34. (side 3 (name "Persia") (noun "Persian") (emblem-name "winged-bull"))
  35.  
  36. (include "u-greek")
  37.  
  38. ;;; Initial alignments of cities.
  39.  
  40. (unit "Abdera" (s 1))
  41. (unit "Abydos" (s 1))
  42. (unit "Acanthus" (s 1))
  43. (unit "Aegina" (s 1))
  44. (unit "Amphipolis" (s 1))
  45. (unit "Andros" (s 1) (os 1))
  46. (unit "Athens" (s 1) (os 1) (m 100 2000))
  47. (unit "Brauron" (s 1) (os 1))
  48. (unit "Byzantium" (s 1))
  49. (unit "Calchedon" (s 1))
  50. (unit "Catana" (s 1))
  51. (unit "Chalcis" (s 1))
  52. (unit "Chios" (s 1))
  53. (unit "Corcyra" (s 1))
  54. (unit "Cos" (s 1))
  55. (unit "Cyzicus" (s 1))
  56. (unit "Elaea" (s 1))
  57. (unit "Ephesus" (s 1))
  58. (unit "Erythrae" (s 1))
  59. (unit "Halicarnassus" (s 1))
  60. (unit "Ialysus" (s 1))
  61. (unit "Ilium" (s 1))
  62. (unit "Lemnos" (s 1))
  63. (unit "Leontini" (s 1))
  64. (unit "Lindos" (s 1))
  65. (unit "Methone" (s 1))
  66. (unit "Methymna" (s 1))
  67. (unit "Miletus" (s 1))
  68. (unit "Myndus" (s 1))
  69. (unit "Mytilene" (s 1))
  70. (unit "Naupactus" (s 1))
  71. (unit "Naxos" (s 1) (os 1))
  72. (unit "Olynthus" (s 1))
  73. (unit "Parium" (s 1))
  74. (unit "Paros" (s 1) (os 1))
  75. (unit "Perinthus" (s 1))
  76. (unit "Plataeae" (s 1) (os 1))
  77. (unit "Same" (s 1))
  78. (unit "Samos" (s 1))
  79. (unit "Sestos" (s 1))
  80. (unit "Thasos" (s 1))
  81. (unit "Zacynthus" (s 1))
  82.  
  83. (unit "Sparta" (s 2) (os 2) (m 100 1000))
  84. (unit "Aegae" (s 2))
  85. (unit "Ambracia" (s 2))
  86. (unit "Anactorium" (s 2))
  87. (unit "Delphi" (s 2))
  88. (unit "Corinth" (s 2))
  89. (unit "Elis" (s 2) (os 2))
  90. (unit "Epidaurus" (s 2))
  91. (unit "Gythium" (s 2) (os 2))
  92. (unit "Kythera" (s 2))
  93. (unit "Lepreum" (s 2))
  94. (unit "Megara" (s 2))
  95. (unit "Olympia" (s 2))
  96. (unit "Pella" (s 2))
  97. (unit "Pharae" (s 2))
  98. (unit "Potidaea" (s 2))
  99. (unit "Pylos" (s 2) (os 2))
  100. (unit "Sicyon" (s 2))
  101. (unit "Syracuse" (s 2))
  102. (unit "Tegea" (s 2))
  103. (unit "Thebes" (s 2) (os 2))
  104. (unit "Therma" (s 2))
  105. (unit "Thyrea" (s 2))
  106. (unit "Troezen" (s 2))
  107.  
  108. (unit "Anaea" (s 3) (os 3))
  109. (unit "Ancyra" (s 3) (os 3))
  110. (unit "Sardis" (s 3) (os 3) (m 100 9000))
  111. (unit "Magnesia" (s 3) (os 3))
  112. (unit "Myra" (s 3) (os 3))
  113. (unit "Nysa" (s 3) (os 3))
  114. (unit "Pergamum" (s 3) (os 3))
  115. (unit "Phaselis" (s 3) (os 3))
  116. (unit "Tralles" (s 3) (os 3))
  117. (unit "Xanthus" (s 3) (os 3))
  118.  
  119. ;; Get rid of cities on the restricted map, but belonging to later times.
  120.  
  121. (unit "Lysimachia" (hp 0))
  122. (unit "Megalopolis" (hp 0))
  123. (unit "Myrlea" (hp 0))
  124. (unit "Nicaea" (hp 0))
  125. (unit "Smyrna" (hp 0))
  126.  
  127. ;; Military units in existence already.
  128.  
  129. (hoplite (s 1) (in "Athens"))
  130. (hoplite (s 1) (in "Miletus"))
  131. (hoplite 44 40 1)
  132. (trireme (s 1) (in "Athens"))
  133. (trireme (s 1) (in "Athens"))
  134.  
  135. (hoplite (s 2) (in "Ambracia"))
  136. (hoplite (s 2) (in "Corinth"))
  137. (hoplite (s 2) (in "Sparta"))
  138. (hoplite (s 2) (in "Thebes"))
  139.  
  140. (archer (s 3) (in "Sardis"))
  141. (cavalry (s 3) (in "Sardis"))
  142.